home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Xtras / progdisk.d64 / math demo (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  13KB  |  518 lines
  1. 10 REM
  2. 20 REM  ***** MATH DEMONSTRATION *****
  3. 25 REM
  4. 26 REM     GREG WOODS FOR WHIZ KIDS
  5. 27 REM             JAN 1984
  6. 30 REM
  7. 40 REM      INITILAIZATION SECTION
  8. 50 REM
  9. 60 :
  10. 70 IF PEEK(49500) <> 202 OR PEEK(50000) <> 165 THEN LOAD"[205]SCRN CTRL",8,1
  11. 80 PRINT "[147]":POKE 53280,14:POKE 53281,6
  12. 85 PRINT CHR$(14)
  13. 90 UP=12*4096+256:DWN=UP+67:LFT=UP+295:RHT=UP+369:RVS=UP+447:COL=UP+511
  14. 100 FILL=UP+547:BRDR=UP+611
  15. 110 DR=1:GOTO 2000
  16. 120 :
  17. 130 REM *****************************
  18. 1000 :
  19. 1010 REM  TIME DELAY LOOP
  20. 1020 :
  21. 1030 FOR NI=0 TO ND: NEXT: RETURN
  22. 1040 :
  23. 1050 REM *****************************
  24. 2000 :
  25. 2010 REM  MAIN PROGRAM
  26. 2020 :
  27. 2025 REM **** MAIN TITLE PAGE
  28. 2030 PRINT"[147]"TAB(16)"[205] [193][160][212][160][200]"
  29. 2040 PRINT""TAB(16)"[196][160][197][160][205][160][207]"
  30. 2050 ND=20
  31. 2055 POKE56328,5: REM START THE CLOCK
  32. 2060 FOR I=1 TO 3: REM TIMES TO CYCLE
  33. 2070 :K=INT(RND(0)*8)
  34. 2080 :FOR J=0 TO 7: REM CYCLE OUT
  35. 2090 ::SYS BRDR,J,J,40-2*J,25-2*J,160,J+K
  36. 2100 ::GOSUB1000
  37. 2110 :NEXT
  38. 2120 :K=INT(RND(-1)*8)
  39. 2130 :FOR J=8 TO 0 STEP -1: REM CYCLE OUT
  40. 2140 ::SYS BRDR,J,J,40-2*J,25-2*J,160,J+K
  41. 2150 ::GOSUB1000
  42. 2160 :NEXT
  43. 2170 NEXT
  44. 2180 ND=1500:GOSUB 1000
  45. 2190 PRINT "[147]": T=25: L=4:GOSUB 4000
  46. 2200 KY$="*": GOSUB 43000
  47. 2210 ND=1000: GOSUB 1000
  48. 2220 POKE 53280,6: POKE 53281,1
  49. 2230 PRINT "[147]"
  50. 2232 A$="                         [146]"
  51. 2233 GOSUB 40000:
  52. 2240 A$="     [215][197][204][195][207][205][197][160][212][207][160][205][217][160][215][207][210][204][196] "
  53. 2245 GOSUB 40000:
  54. 2247 A$="                         [146]"
  55. 2248 GOSUB 40000: ND=20*T: GOSUB 1000
  56. 2250 A$="    [217]OU  HAVE JUST  TYPED  YOUR FIRST"
  57. 2255 GOSUB 40000: ND=20*T: GOSUB 1000
  58. 2260 A$="PROGRAMS IN A COMPUTER LANGUAGE KNOWN"
  59. 2265 GOSUB 40000: ND=20*T: GOSUB 1000
  60. 2270 A$="AS  [194][193][211][201][195].   [194][193][211][201][195]  DOESN'T JUST MEAN"
  61. 2275 GOSUB 40000: ND=20*T: GOSUB 1000
  62. 2280 A$="SIMPLE OR ELEMENTARY.  [201]T IS A WAY OF"
  63. 2285 GOSUB 40000: ND=20*T: GOSUB 1000
  64. 2290 A$="COMMUNICATING  WITH THE COMPUTER IN A"
  65. 2295 GOSUB 40000: ND=10*T: GOSUB 1000
  66. 2300 A$="MANNER IT UNDERSTANDS.   ([211]OME OTHERS"
  67. 2305 GOSUB 40000: ND=10*T: GOSUB 1000
  68. 2310 A$="ARE [195][207][194][207][204], [198][207][210][212][210][193][206], [195], [208]ASCAL, [204][207][199][207].)"
  69. 2315 GOSUB 40000: ND=20*T: GOSUB 1000
  70. 2320 A$="   [194][193][211][201][195] WAS DEVELOPED BY [202]OHN [203]EMENY"
  71. 2325 GOSUB 40000: ND=20*T: GOSUB 1000
  72. 2330 A$="AND [212]HOMAS [203]URTZ OF [196]ARTMOUTH [195]OLLEGE"
  73. 2335 GOSUB 40000: ND=20*T: GOSUB 1000
  74. 2340 A$="[201] THOUGHT YOU MIGHT LIKE TO KNOW WHAT"
  75. 2345 GOSUB 40000: ND=20*T: GOSUB 1000
  76. 2350 A$="IT STOOD FOR. [202]UST BEFORE [201] TELL YOU,"
  77. 2355 GOSUB 40000: ND=20*T: GOSUB 1000
  78. 2360 A$="MAY [201] TAKE THE LIBERTY OF SAYING IT'S"
  79. 2365 GOSUB 40000: ND=20*T: GOSUB 1000
  80. 2370 A$="BEEN GREAT HAVING YOU ABOARD.    [215]HEN"
  81. 2375 GOSUB 40000: ND=20*T: GOSUB 1000
  82. 2380 A$="YOU  ARE  BROWSING  AROUND  OUT THERE"
  83. 2385 GOSUB 40000: ND=20*T: GOSUB 1000
  84. 2390 A$="TELL THEM THE [195]APTAIN SENT YOU.      "
  85. 2395 GOSUB 40000: ND=20*T: GOSUB 1000
  86. 2400 A$="  [194][151]  [194][197][199][201][206][206][197][210][211]' ":PRINT
  87. 2405 GOSUB 40000: ND=20*T: GOSUB 1000
  88. 2410 A$="  [193][151]  [193][204][204]-[208][213][210][208][207][211][197]"
  89. 2415 GOSUB 40000: ND=20*T: GOSUB 1000
  90. 2420 A$="  [211][151]  [211][217][205][194][207][204][201][195]   "
  91. 2425 GOSUB 40000: ND=20*T: GOSUB 1000
  92. 2430 A$="  [201][151]  [201][206][211][212][210][213][195][212][201][207][206]"
  93. 2435 GOSUB 40000: ND=20*T: GOSUB 1000
  94. 2440 A$="  [195][151]  [195][207][196][197][160]      "
  95. 2445 GOSUB 40000: ND=20*T: GOSUB 1000
  96. 3810 ND=30000: GOSUB 1000
  97. 3820 POKE 53281,0: POKE 53280,2: PRINT"[147]"
  98. 3830 GOSUB 45000
  99. 3840 PRINT CHR$(142)"    WAIT!"
  100. 3850 PRINT "    NEXT PROGRAM LOADING."
  101. 3860 PRINT "[144]LOAD "CHR$(34)"HANGMAN"CHR$(34)",8"
  102. 3870 PRINT ""
  103. 3880 POKE 198,4: POKE 631,13: POKE 632,82: POKE 633,213: POKE 634,13
  104. 3890 END
  105. 3900 :
  106. 3980 :
  107. 3990 REM ******************************
  108. 4000 :
  109. 4010 REM  PAGE ONE
  110. 4020 :
  111. 4030 PRINT "": POKE 53280,12: POKE 53281,1
  112. 4040 TT$="[205]ATH [212]RICKS": PG=1
  113. 4050 GOSUB 42000
  114. 4060 ND=10*T: GOSUB 1000: PRINT"[151]";
  115. 4070 A$=" [195][207][205][208][213][212][197][210] [205][193][212][200][197][205][193][212][201][195][211][151]":PRINT""
  116. 4075 GOSUB 40000: ND=10*T: GOSUB 1000
  117. 4080 A$="[212]HE COMPUTER IS ALSO A SUPER":PRINT""
  118. 4085 GOSUB 40000: ND=10*T: GOSUB 1000
  119. 4090 A$="CALCULATOR.  [212]O SHOW YOU WHAT":PRINT""
  120. 4095 GOSUB 40000: ND=10*T: GOSUB 1000
  121. 4100 A$="[201] MEAN, WE WILL DO A SIMPLE EXAMPLE.":PRINT""
  122. 4105 GOSUB 40000: ND=PL*L: GOSUB 1000
  123. 4110 KY$="+": GOSUB 43000
  124. 4120 ND=300: GOSUB 1000
  125. 4130 GOSUB 41000
  126. 4980 :
  127. 4990 REM ******************************
  128. 5000 :
  129. 5010 REM  PAGE TWO
  130. 5020 :
  131. 5030 PRINT"";:POKE53280,12:POKE53281,1
  132. 5040 TT$="[212]HE [208][210][201][206][212] [211]TATEMENT": PG=PG+1
  133. 5050 GOSUB 42000
  134. 5060 ND=60*T:GOSUB 1000:PRINT"[151]";
  135. 5070 A$="[212]O MAKE THE COMPUTER PERFORM A":PRINT
  136. 5075 GOSUB 40000: ND=10*T: GOSUB 1000
  137. 5080 A$="CALCULATION, WE MUST TELL IT TO":PRINT
  138. 5085 GOSUB 40000: ND=10*T: GOSUB 1000
  139. 5090 A$="[208][210][201][206][212] OUR COMPUTATION ON THE SCREEN.":PRINT
  140. 5095 GOSUB 40000: ND=10*T: GOSUB 1000
  141. 5110 A$="[215]HATEVER FOLLOWS [208][210][201][206][212] WILL BE":PRINT
  142. 5115 GOSUB 40000: ND=10*T: GOSUB 1000
  143. 5120 A$="COMPUTED AND PRINTED ON THE SCREEN.":PRINT
  144. 5125 GOSUB 40000: ND=PL*L: GOSUB 1000
  145. 5950 IN$="PRINT 10+10": AN$="20": GOSUB44000
  146. 5960 ND=750:GOSUB 1000
  147. 5970 GOSUB 41000
  148. 5980 :
  149. 5990 REM ******************************
  150. 6000 :
  151. 6010 REM  PAGE THREE
  152. 6020 :
  153. 6030 PRINT"";:POKE53280,12:POKE53281,1
  154. 6040 TT$="[193]DDITION": PG=PG+1
  155. 6050 GOSUB 42000
  156. 6060 ND=60*T:GOSUB 1000:PRINT"[151]";
  157. 6070 A$="[193] COMPUTER CAN DO MORE THAN":PRINT""
  158. 6075 GOSUB 40000: ND=10*T: GOSUB 1000
  159. 6080 A$="JUST ADD TWO NUMBERS TOGETHER.": PRINT""
  160. 6085 GOSUB 40000: ND=10*T: GOSUB 1000
  161. 6090 A$="[212]RY THE NEXT EXAMPLE.": PRINT""
  162. 6095 GOSUB 40000: ND=PL*L: GOSUB 1000
  163. 6950 IN$="PRINT 10+10+10":AN$="30":GOSUB 44000
  164. 6960 ND=750:GOSUB 1000
  165. 6970 GOSUB 41000
  166. 6980 :
  167. 6990 REM ******************************
  168. 7000 :
  169. 7010 REM  PAGE FOUR
  170. 7020 :
  171. 7030 PRINT"";:POKE53280,12:POKE53281,1
  172. 7040 TT$="[211]UBTRACTION": PG=PG+1
  173. 7050 GOSUB 42000
  174. 7060 ND=60*T:GOSUB 1000:PRINT"[151]";
  175. 7070 A$="[193]DDITION IS HANDY, BUT WE CAN":PRINT""
  176. 7075 GOSUB 40000: ND=10*T: GOSUB 1000
  177. 7080 A$="ALSO TELL THE COMPUTER TO":PRINT""
  178. 7085 GOSUB 40000: ND=10*T: GOSUB 1000
  179. 7090 A$="SUBTRACT NUMBERS.":PRINT""
  180. 7095 GOSUB 40000: ND=10*T: GOSUB 1000
  181. 7100 A$="[212]RY THE NEXT EXAMPLE.": PRINT""
  182. 7105 GOSUB 40000: ND=PL*L: GOSUB 1000
  183. 7950 IN$="PRINT 20-10":AN$="10":GOSUB 44000
  184. 7960 ND=750:GOSUB 1000
  185. 7970 GOSUB 41000
  186. 7980 :
  187. 7990 REM ******************************
  188. 8000 :
  189. 8010 REM  PAGE FIVE
  190. 8020 :
  191. 8030 PRINT"";:POKE53280,12:POKE53281,1
  192. 8040 TT$="[205]ULTIPLICATION": PG=PG+1
  193. 8050 GOSUB 42000
  194. 8060 ND=60*T: GOSUB 1000: PRINT"[151]";
  195. 8070 A$="[205]ULTIPLICATION IS NO MORE":PRINT""
  196. 8075 GOSUB 40000: ND=10*T: GOSUB 1000
  197. 8090 A$="DIFFICULT.  [193]LL YOU NEED TO":PRINT""
  198. 8095 GOSUB 40000: ND=10*T: GOSUB 1000
  199. 8100 A$="KNOW IS THAT COMPUTERS USE THE":PRINT""
  200. 8105 GOSUB 40000: ND=10*T: GOSUB 1000
  201. 8110 A$="ASTERISK (*) FOR MULTIPLICATION.":PRINT""
  202. 8115 GOSUB 40000: ND=PL*L: GOSUB 1000
  203. 8950 IN$="PRINT 10*10": AN$="100": GOSUB 44000
  204. 8960 ND=750:GOSUB 1000
  205. 8970 GOSUB 41000
  206. 8980 :
  207. 8990 REM ******************************
  208. 9000 :
  209. 9010 REM  PAGE SIX
  210. 9020 :
  211. 9030 PRINT"";:POKE53280,12:POKE53281,1
  212. 9040 TT$="[196]IVISION": PG=PG+1
  213. 9050 GOSUB 42000
  214. 9060 ND=60*T:GOSUB 1000:PRINT"[151]";
  215. 9070 A$="[196]IVISION IS ALSO QUITE SIMPLE.":PRINT""
  216. 9075 GOSUB 40000: ND=10*T: GOSUB 1000
  217. 9080 A$="[217]OU NEED ONLY KNOW":PRINT""
  218. 9085 GOSUB 40000: ND=10*T: GOSUB 1000
  219. 9100 A$="THAT COMPUTERS USE THE":PRINT""
  220. 9105 GOSUB 40000: ND=10*T: GOSUB 1000
  221. 9110 A$="SLASH (/) FOR DIVISION.":PRINT""
  222. 9115 GOSUB 40000: ND=PL*L: GOSUB 1000
  223. 9950 IN$="PRINT 100/10":AN$="10":GOSUB 44000
  224. 9960 ND=750:GOSUB 1000
  225. 9970 GOSUB 41000
  226. 9980 :
  227. 9990 REM ******************************
  228. 10000 :
  229. 10010 REM  PAGE SEVEN
  230. 10020 :
  231. 10030 PRINT"";:POKE53280,12:POKE53281,1
  232. 10040 TT$="[209]UOTATION [205]ARKS": PG=PG+1
  233. 10050 GOSUB 42000
  234. 10060 ND=60*T:GOSUB 1000:PRINT"[151]";
  235. 10070 A$="[211]EE IF YOU CAN FIGURE OUT":PRINT""
  236. 10075 GOSUB 40000: ND=10*T: GOSUB 1000
  237. 10080 A$="WHAT THE QUOTE MARKS IN THE":PRINT""
  238. 10085 GOSUB 40000: ND=10*T: GOSUB 1000
  239. 10100 A$="NEXT EXAMPLE ARE FOR.":PRINT""
  240. 10105 GOSUB 40000: ND=PL*L: GOSUB 1000
  241. 10950 IN$="PRINT "+CHR$(34)+"10+10="+CHR$(34)+" 10+10"
  242. 10955 AN$="[157]10+10= 20":GOSUB 44000
  243. 10960 ND=750:GOSUB 1000
  244. 10970 GOSUB 41000
  245. 10980 :
  246. 10990 REM *****************************
  247. 11000 GOTO 12000
  248. 11010 REM  PAGE EIGHT
  249. 11020 :
  250. 11030 PRINT"";:POKE53280,12:POKE53281,1
  251. 11040 TT$="[212]HE [209]UESTION [205]ARK": PG=PG+1
  252. 11050 GOSUB 42000
  253. 11060 ND=60*T:GOSUB 1000:PRINT"[151]";
  254. 11070 A$="[200]ERE IS ANOTHER TRICK FOR":PRINT""
  255. 11075 GOSUB 40000: ND=10*T: GOSUB 1000
  256. 11080 A$="YOU TO FIGURE OUT.":PRINT
  257. 11085 GOSUB 40000: ND=10*T: GOSUB 1000
  258. 11100 A$="[215]E WILL DO TWO EXAMPLES.":PRINT""
  259. 11105 GOSUB 40000: ND=PL*L: GOSUB 1000
  260. 11910 IN$="? 10+10"
  261. 11920 AN$="20":GOSUB 44000
  262. 11930 ND=750:GOSUB 1000:GOSUB 42000
  263. 11940 IN$="? "+CHR$(34)+"10+10="+CHR$(34)+" 10+10"
  264. 11950 AN$="[157]10+10= 20":GOSUB 44000
  265. 11960 ND=750:GOSUB 1000
  266. 11970 GOSUB 41000
  267. 11980 :
  268. 11990 REM *****************************
  269. 12000 :
  270. 12010 REM  PAGE NINE
  271. 12020 :
  272. 12030 PRINT"";:POKE53280,12:POKE53281,1
  273. 12040 TT$="[214]ARIABLES": PG=PG+1
  274. 12050 GOSUB 42000
  275. 12060 ND=60*T:GOSUB 1000:PRINT"[151]";
  276. 12070 A$="[206]OW WE WILL DO AN EXAMPLE THAT":PRINT""
  277. 12075 GOSUB 40000: ND=10*T: GOSUB 1000
  278. 12080 A$="IS A LITTLE MORE DIFFICULT.":PRINT
  279. 12085 GOSUB 40000: ND=10*T: GOSUB 1000
  280. 12090 A$="[215]E WILL HAVE TO TYPE THREE LINES":PRINT
  281. 12095 GOSUB 40000: ND=10*T: GOSUB 1000
  282. 12100 A$="BEFORE WE SEE THE END RESULT.":PRINT
  283. 12105 GOSUB 40000: ND=10*T: GOSUB 1000
  284. 12810 IN$="NUMBER=10"
  285. 12820 AN$="[145]":GOSUB 44000
  286. 12830 ND=750:GOSUB 1000: GOSUB 42000
  287. 12840 IN$="SUM=NUMBER+1"
  288. 12850 AN$="[145]":GOSUB 44000
  289. 12860 ND=750:GOSUB 1000: GOSUB 42000
  290. 12870 IN$="PRINT SUM"
  291. 12880 AN$="11":GOSUB 44000
  292. 12890 ND=750:GOSUB 1000
  293. 12970 GOSUB 41000
  294. 12980 :
  295. 12990 REM *****************************
  296. 13000 :
  297. 13010 REM  PAGE TEN
  298. 13020 :
  299. 13030 PRINT"";:POKE53280,12:POKE53281,1
  300. 13040 TT$="[211]HORT [200]AND": PG=PG+1
  301. 13050 GOSUB 42000
  302. 13060 ND=60*T:GOSUB 1000:PRINT"[151]";
  303. 13070 A$="[200]ERE IS THE EXAMPLE YOU TYPED:":PRINT
  304. 13075 GOSUB 40000: ND=10*T: GOSUB 1000
  305. 13080 A$="NUMBER=10   ":PRINT
  306. 13085 GOSUB 40000: ND=10*T: GOSUB 1000
  307. 13100 A$="SUM=NUMBER+1"
  308. 13105 GOSUB 40000: ND=10*T: GOSUB 1000
  309. 13110 A$="PRINT SUM   "
  310. 13115 GOSUB 40000: ND=10*T: GOSUB 1000
  311. 13120 A$=" [193][206][211][215][197][210][151]  11               "
  312. 13125 GOSUB 40000: ND=10*T: GOSUB 1000
  313. 13130 A$="[206]OW WE WILL DO THE SAME EXAMPLE":PRINT""
  314. 13135 GOSUB 40000: ND=10*T: GOSUB 1000
  315. 13140 A$="IN A MUCH SHORTER WAY.":PRINT
  316. 13145 GOSUB 40000: ND=PL*L: GOSUB 1000
  317. 13810 IN$="N=10"
  318. 13820 AN$="[145]":GOSUB 44000
  319. 13830 ND=750:GOSUB 1000: GOSUB 42000
  320. 13840 IN$="S=N+1"
  321. 13850 AN$="[145]":GOSUB 44000
  322. 13860 ND=750:GOSUB 1000: GOSUB 42000
  323. 13870 IN$="PRINT S"
  324. 13880 AN$="11":GOSUB 44000
  325. 13890 ND=750:GOSUB 1000: GOSUB 41000
  326. 13980 :
  327. 13990 REM *****************************
  328. 14000 :
  329. 14010 REM  PAGE ELEVEN
  330. 14020 :
  331. 14030 PRINT"";:POKE53280,12:POKE53281,1
  332. 14040 TT$="[211]HORT [200]AND": PG=PG+1
  333. 14050 GOSUB 42000
  334. 14060 ND=60*T:GOSUB 1000:PRINT"[151]";
  335. 14070 A$="[200]ERE IS THE SECOND EXAMPLE:":PRINT
  336. 14075 GOSUB 40000: ND=10*T: GOSUB 1000
  337. 14080 A$="N=10     ":PRINT
  338. 14085 GOSUB 40000: ND=10*T: GOSUB 1000
  339. 14100 A$="S=N+1    "
  340. 14105 GOSUB 40000: ND=10*T: GOSUB 1000
  341. 14110 A$="PRINT S  "
  342. 14115 GOSUB 40000: ND=10*T: GOSUB 1000
  343. 14120 A$=" [193][206][211][215][197][210][151]  11            "
  344. 14125 GOSUB 40000: ND=10*T: GOSUB 1000
  345. 14130 A$="[200]ERE IS ONE FINAL EXAMPLE FOR":PRINT""
  346. 14135 GOSUB 40000: ND=10*T: GOSUB 1000
  347. 14140 A$="YOU TO TRY.":PRINT
  348. 14145 GOSUB 40000: ND=PL*L: GOSUB 1000
  349. 14810 IN$="A=10"
  350. 14820 AN$="[145]":GOSUB 44000
  351. 14830 ND=750:GOSUB 1000: GOSUB 42000
  352. 14840 IN$="B=20"
  353. 14850 AN$="[145]":GOSUB 44000
  354. 14860 ND=750:GOSUB 1000: GOSUB 42000
  355. 14870 IN$="PRINT A+B"
  356. 14880 AN$="30":GOSUB 44000
  357. 14890 ND=750:GOSUB 1000: GOSUB 41000
  358. 14980 :
  359. 14990 REM *****************************
  360. 15000 :
  361. 15010 REM  PAGE TWELVE
  362. 15020 :
  363. 15030 PRINT"";:POKE53280,12:POKE53281,1
  364. 15040 TT$="[217]OU'RE [198]INISHED": PG=PG+1
  365. 15050 GOSUB 42000
  366. 15060 ND=60*T:GOSUB 1000:PRINT"[151]";
  367. 15070 A$="[200]ERE IS THAT LAST EXAMPLE AGAIN:":PRINT
  368. 15075 GOSUB 40000: ND=10*T: GOSUB 1000
  369. 15080 A$="A=10     ":PRINT
  370. 15085 GOSUB 40000: ND=10*T: GOSUB 1000
  371. 15100 A$="B=20     "
  372. 15105 GOSUB 40000: ND=10*T: GOSUB 1000
  373. 15110 A$="PRINT A+B"
  374. 15115 GOSUB 40000: ND=10*T: GOSUB 1000
  375. 15120 A$=" [193][206][211][215][197][210][151]  30            "
  376. 15125 GOSUB 40000: ND=10*T: GOSUB 1000
  377. 15130 A$="[215]E HOPE THAT THIS EXERCISE":PRINT""
  378. 15135 GOSUB 40000: ND=10*T: GOSUB 1000
  379. 15140 A$="HAS GIVEN YOU AN IDEA OF":PRINT
  380. 15145 GOSUB 40000: ND=10*T: GOSUB 1000
  381. 15150 A$=" [195][207][205][208][213][212][197][210][160][205][193][212][200][197][205][193][212][201][195][211]![151]":PRINT
  382. 15155 GOSUB 40000: ND=PL*L: GOSUB 1000
  383. 15980 :
  384. 15990 REM *****************************
  385. 39940 :
  386. 39950 REM *****************************
  387. 39960 :
  388. 39970 RETURN
  389. 39980 :
  390. 39990 REM *****************************
  391. 40000 :
  392. 40010 REM  WRITE A LINE CENTERED
  393. 40020 :
  394. 40030 PRINT TAB(((40-LEN(A$))/2));
  395. 40040 ND=T
  396. 40050 FOR I=1 TO LEN(A$)
  397. 40060 :PRINT MID$(A$,I,1)" [146][157]";
  398. 40070 :GOSUB 1000
  399. 40080 NEXT
  400. 40090 PRINT" [157]": PL=PL+LEN(A$)
  401. 40100 RETURN
  402. 40110 :
  403. 40120 REM *****************************
  404. 41000 :
  405. 41010 REM  CLEAR CENTER WINDOW
  406. 41020 :
  407. 41030 IF DR = 1 THEN 41070
  408. 41040 IF DR = 2 THEN 41130
  409. 41050 IF DR = 3 THEN 41190
  410. 41060 IF DR = 4 THEN 41250
  411. 41070 FOR I=1 TO 40
  412. 41080 :SYS LFT,0,2,40,15,0
  413. 41090 :ND=5:GOSUB 1000
  414. 41100 NEXT
  415. 41110 ND=750:GOSUB 1000
  416. 41120 GOTO41310
  417. 41130 FOR I=1 TO 19
  418. 41140 :SYS UP,0,2,40,15,0
  419. 41150 :ND=35:GOSUB 1000
  420. 41160 NEXT
  421. 41170 ND=750:GOSUB 1000
  422. 41180 GOTO41310
  423. 41190 FOR I=1 TO 40
  424. 41200 :SYS RHT,0,2,40,15,0
  425. 41210 :ND=5:GOSUB 1000
  426. 41220 NEXT
  427. 41230 ND=750:GOSUB 1000
  428. 41240 GOTO41310
  429. 41250 FOR I=1 TO 19
  430. 41260 :SYS DWN,0,2,40,15,0
  431. 41270 :ND=35:GOSUB 1000
  432. 41280 NEXT
  433. 41290 ND=750:GOSUB 1000
  434. 41300 GOTO41310
  435. 41310 DR=DR+1:IF DR=5 THEN DR=1
  436. 41320 RETURN
  437. 41980 :
  438. 41990 REM *****************************
  439. 42000 :
  440. 42010 REM  TITLE A PAGE  CLEAR WINDOW 3
  441. 42020 :
  442. 42030 PRINT"";
  443. 42040 SYS FILL,1,0,38,1,160,6
  444. 42050 PRINT""TAB(1)TT$TAB(31)"[208]AGE "PG
  445. 42060 SYS FILL,1,17,38,7,160,2
  446. 42070 RETURN
  447. 42980 :
  448. 42990 REM *****************************
  449. 43000 :
  450. 43010 REM  PRESS A KEY TO CONTINUE
  451. 43020 :
  452. 43030 SYS FILL,7,19,26,3,160,6
  453. 43040 PRINT "";
  454. 43050 PRINT ""
  455. 43060 PRINT TAB(8)"""[208]RESS  "KY$"  TO CONTINUE..."
  456. 43070 GET Q$:IF Q$ <> KY$ THEN 43070
  457. 43080 RETURN
  458. 43970 RETURN
  459. 43980 :
  460. 43990 REM *****************************
  461. 44000 :
  462. 44010 REM  TYPE A LINE TO CONTINUE
  463. 44020 :
  464. 44030 PRINT ""
  465. 44040 PRINT ""
  466. 44050 PRINT TAB(3)"[208]LEASE TYPE THE FOLLOWING LINE:"
  467. 44060 PRINT TAB(3);"";IN$;"  (PRESS [146][210][197][212][213][210][206])"
  468. 44070 PRINT TAB(3);:QC$="":POKE908,0
  469. 44080 PRINT "[146] [157]";
  470. 44085 IF LEN(QC$) > 35 THEN 44120
  471. 44090 GETQ$:IFQ$=""THEN44160
  472. 44100 IFQ$=CHR$(13)ORQ$=CHR$(141)THEN44190
  473. 44110 IFQ$<>CHR$(157)ANDQ$<>CHR$(20)THEN44130
  474. 44115 IF QC$="" THEN 44080
  475. 44120 QC$=LEFT$(QC$,LEN(QC$)-1):PRINT"[157]  [157][157]";:GOTO44080
  476. 44130 IFASC(Q$)<32ORASC(Q$)>95THEN44080
  477. 44140 QC$=QC$+Q$:IFASC(Q$)=34THEN:PRINTCHR$(34);CHR$(34);"[157] [157]";:GOTO44080
  478. 44150 PRINTQ$;:GOTO44080
  479. 44160 FOR I=1 TO 150: NEXTI
  480. 44170 PRINT" [146][157]";
  481. 44180 FOR I=1 TO 200:NEXTI:GOTO 44080
  482. 44190 IF IN$ = QC$ THEN 44200
  483. 44192 SYS FILL,1,17,38,7,160,2:PRINT"";
  484. 44194 PRINT TAB(5)"[211][207][210][210][217], PRESS ANY KEY TO RETRY.";
  485. 44196 GET Q$: IF Q$="" THEN 44196
  486. 44198 SYS FILL,1,17,38,7,160,2: GOTO 44000
  487. 44200 PRINT" ":PRINT TAB(4)""AN$
  488. 44210 PRINT TAB(3)"READY."
  489. 44215 IF AN$="[145]"THEN:PRINT"";
  490. 44220 PRINT "[145][145][145]"TAB(5+LEN(AN$));
  491. 44230 FOR I=1 TO 5
  492. 44240 :PRINT "_[157]";
  493. 44250 :FOR J=1 TO 200:NEXTJ
  494. 44260 :PRINT " [157]";
  495. 44270 :FOR J=1 TO 200:NEXTJ
  496. 44280 NEXTI
  497. 44290 ND=500:GOSUB 1000
  498. 44300 RETURN
  499. 44980 :
  500. 44990 REM *****************************
  501. 45000 :
  502. 45010 REM  STOP SIGN
  503. 45020 :
  504. 45030 PRINT""
  505. 45040 FORI=1TO16:PRINT"";:NEXT
  506. 45050 PRINTTAB(28)" [169]      [223]"
  507. 45060 PRINTTAB(28)"[169]        [223]"
  508. 45070 PRINTTAB(28)"  [146][161]    [182]  "
  509. 45080 PRINTTAB(28)"  [146][161]STOP[182]  "
  510. 45090 PRINTTAB(28)"  [146][161]    [182]  "
  511. 45100 PRINTTAB(28)"[223]        [146][169]"
  512. 45110 PRINTTAB(28)" [223]      [146][169]"
  513. 45120 PRINT"":RETURN
  514. 45980 :
  515. 45990 REM *****************************
  516. 59980 :
  517. 59990 REM *****************************
  518.